use strict;
use LWP::UserAgent;
use JSON;
use Cwd;

my $json = JSON->new->utf8;
my $json_obj;
my $browser=LWP::UserAgent->new(agent=>'Mozilla/5.0');

my $user_id = "1";
open FF,">test128712.txt";
for(120000..128712){
	my $returnInfo = $browser->post("http://ppwp.go-goal.cn/api/v1/typein/search_user_fund",
		{
			page => "1",
			rows => "5",
			#user_id => "128712",
			user_id => $_,
			type => "0"
		}
	);
	my $info = $returnInfo->content;
	print $info;
	print FF $_ . "  " . $info . "\n";
}

